PCGUIA 127/PC Guia 127.iso/Software/Produtividade/OpenOffice.org 2.0.1/openofficeorg1.cab/TutorialOpen.xba

Extensible Markup Language | 2005-09-26 | 3KB | 96 lines

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="TutorialOpen" script:language="StarBasic">REM  *****  BASIC  *****
Dim myOpenDialog As Object
Dim oListBox As Object
Dim files As Object
Dim oUcb As Object
Dim oListener As Object

Sub TutorialOpenMain
    GlobalScope.BasicLibraries.LoadLibrary("Tools")
    myOpenDialog = LoadDialog("Tutorials","TutorialOpenDialog")
    init()
    myOpenDialog.Execute()
End Sub

Sub Init
    On Local Error Goto NOFILE
        myOpenDialog.Title = "Tutorials"
        oListBox = myOpenDialog.GetControl("ListBox")
        templatePath = GetPathSettings("Template",false, 0)
        Dim tutorialPath As String
        iPos = InStr(templatePath,"/")
        if(iPos > 0) Then
            tutorialPath = templatePath & "/tutorials"
        Else
            tutorialPath = templatePath & "\tutorials"
        End If
        oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
        files = oUcb.getFolderContents(tutorialPath,true)
        size  = Ubound( files() )
        Dim tempFiles(size) As String
        tempCount = 0
        For iCount = 0 To size
            completPath = files(iCount)
            oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties")
            oDocInfo.Read(completPath)
            sDocTitle = oDocInfo.Title
            if(not isNull(sDocTitle) And len(sDocTitle) > 0) Then
                oListbox.additem(sDocTitle,0)
                tempFiles(tempCount) = completPath
                tempCount = tempCount + 1
            End If
        Next iCount
        'printdbgInfo oListbox
        size = oListbox.ItemCount - 1
        Dim tempFiles2(size) As String
        For iCount = 0 To size
            tempFiles2(iCount)  = tempFiles(iCount)
        Next iCount
        files() = tempFiles2()
    Exit Sub
    NOFILE:
    If Err <> 0 Then
        Msgbox "No file found error!" & CHR(13) & "Path: ...\share\template\...\tutorials\"
        myOpenDialog.model.Open.enabled = False
    End If
End Sub

Sub ItemSelected(oEvent)
    On Local Error Goto NOFILE
        completPath = files(Ubound(files()) - oEvent.Selected)
        oTextField = myOpenDialog.GetControl("Label") 'TextField
        oTextField.setText("")
        Dim NoArgs() as new com.sun.star.beans.PropertyValue
        oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties")
        oDocInfo.Read(completPath)
        sDocDescription = oDocInfo.Description
        if(not isNull(sDocTitle) And len(sDocDescription) > 0) Then
            oTextField.setText(sDocDescription)
        Else
            oTextField.setText("Not Description!!!.")
        End If
    Exit Sub
    NOFILE:
    If Err <> 0 Then
        Msgbox "Open file error!"
    End If
End Sub

Sub OpenTutorial(aEvent)
    completPath = files(Ubound(files()) - oListBox.getSelectedItemPos())
    Dim Args(2) as new com.sun.star.beans.PropertyValue
    Args(1).Name = "MacroExecutionMode"
    Args(1).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE
    Args(2).Name = "AsTemplate"
    Args(2).Value = true

    StarDesktop.LoadComponentFromURL(completPath,"_default",0, Args())
    myOpenDialog.endExecute()
End Sub

Sub Cancel(aEvent)
    myOpenDialog.endExecute()
End Sub
</script:module>